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Revision his oryt 
v03-019 M1R0450 Michael I. Rosenblum 27-Jun-1984 
Never initiate Logins on , erminal marked secure server 
and noautobaud from unsolicited input. 


v03-018 M1R0370 Michael I. Rosenblum 20-Mar-1984 
Use TTYSGB_AUTOCHAR to get the character to indicate 
ready for system password. 


v03-017 M1RO310 Michael i. Rosenblum 07-FEB-1985 
f x bug that caused the interrupt key to stop working when 
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6 AUTHOR: 
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0 R.HEINEN 11-AUG-1976 
’ 
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n 8 bit mode. Add code to output a different character 
as a ready for system peseuere cperacter. 

Fix bug in pasthru mode so it will honor control-s and 
control-q correctly. 
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O00 00000900 00 09 09090009 09 09 SI NIN NINN NNO AAA AAAAAO 
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V03-016 BIROORE Michael I. Rosenblum 19-Aug-1983 
Make long word reference to a byte “field a byte reference. 
V03-015 MIRO080 Michael I. Rosenblum 14-Jun-1983 
Restructure module. 
V03-014 MIROOS1 Michael I. Rosenblum 3-Jun-1983 


Optomize permet sores sey ingut code path, make jobcontroler 

Hy pp LA on logic a subroutine, output belt uppon notification 
of job controler on login. Make buffering characters in the 
typeahead buffer a subroutine. 


vO3-013 MIR1050 Michael I. Rosenblum 23-May-1983 
finish removing code for broadcast. 
v03-012 JLV0255 Jake VanNoy 23-MAY-1983 


Add code to allow out-of-band aborts. Set up multi-echo 
strings to be table driven. 


V03-011 MIRO041 Michael I. Rosenblum 29-Apr-1983 
Cause autobaud to require a readable CR before initiating 
loginout. Clear the passal epyen* ser ten bit when EOL is 
se Check int before j ping into the » SesnenteSer code path 

when EOL is set by the ae code path. 


V03-010 MIROO34 Michael I. Rosenblum 07-Apr-1983 


allow LK201 7 ay bey F6 to translate to *C 

v03-009 MIRO032 Michael I. Rosenblum 05-Apr-1983 
Allow control-C,Y and 0 to echo dec crt strings. 

v03-008 RKS0008 RICK SPITZ 14-MAR-1983 
ADD SUPPORT FOR LOGICAL UCB 

v03-007 pinoce? Michael I. Rosenblum gievensees 


ove the location of settin ng MULTI in the control-C and Y 
» gic to allow MULTI to be cleared during READONE. 
Clearing mt will stop the Read buffer from 
being modified after readone dealocates it. 


v03-006 i hoody Michael I. Rosenblum 05-Jan-1983 
invthe return status of TTYSPUTNEXTCHAR to include a byte value 
= : BCs. this will move the information from the condition 
cod ts. 


v03-005 aie Michael I. enblum 0-Dec-1982 
Change’ T “rvs. 3 synsot and rive _ST_GETAHD to TTYS$V_FD_UNSOL 
and TY$V D, to reflect changes in the fork dispatcher 

aoen e oer = amt driver to call the class driver jacket 
routines. 


VO3-004 MIROO14 hael I. Rosenblum 17-Dec-1982 
Change PORT_XON a PORT _XOF F to CLASS_XON and CLASS. XOF F 


v03-003 ROO13 Michael I. Rosenblum 16-Dec-1982 
x up refferences to new ucb structure 
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c um 18-Nov-1982 
ange aylttecho to always take a length count and address 
of a string. 


MIROO10 Michael I. Rosenblum 09-Nov-1982 
Move the address 9 the terminator mask, and the Length 
of the prompt str ng from the IRP into the terminal read 
acket. Also move the count of the characters in the 
uffer from the UCB into the terminal typeahead buffer packet. 
Restructured typeahead buffer alarm size calculation slightly 
to use the count from the typeahead buffer packet. 
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RKSO001 RICK SPITZ 23-SEP-1982 
RESET ALTLEN VALUE WHEN STARTING MULTIECHO STRING, TO INSURE 
THAT “Y ECHO DURING READ VERIFY FUNCTIONS PROPERLY. 

RKS0026 RICK SPITZ 25-JAN-1982 
CHANGE CONTROL O LOGIC TO WORK WITH BURST MODE OUTPUT 
(PREVENT WRAP IN MID LINE) 

RKS0025 RICK SPITZ 15=DEC-1981 
CHANGE INSPOST CALL TO WRITE POST IN CTRLC,Y LOGIC. 

RKSO0024 RICK SPITZ 2U-NOV-1981 
ADD OUT OF BAND SUPPORT 

JLVO0099 Jake Vortioy 27-0c t-1981 

Changed TTYDEFS to STTYDEFS. 

RKS022 RICK SPITZ 20-AUG-198 | 
ADD ALTERNATE TYPEAHEAD SIZE SUPPORT 

RKSO21 RICK SPITZ 12-AUG-1981 
CORRECT DEFINITION NAMES 

JLV0062 Jake VanNoy 10-Aug-1981 
Added autobaud code. 
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K RICK SPITZ 
SEVERAL NEW FEATURES pep Bi Rtg TO SUPPORT THE 


R ONTROL S$ AND Q. LOGIC TO HANDLE CONTROL S 
DURING A BROADCAST IS ALSO INCLUDED. 


RKSO18 RICK SPITZ 26-F EB-1981 
REMOVE V2.0 AUDIT TRAILS 
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TTYSPUTNEXTCHAR = BUFFER CHARACTER ~SEb=19be Ocsios1s ETTORVR.SReoTTYeHARG mar? (2% (3) 
if .SBTTL TTYSPUTNEXTCHAR = BUFFER CHARACTER 
1 p++ 
‘ : TTYSPUTNEXTCHAR = BUFFER CHARACTER 
138 ; FUNCTIONAL DESCRIPTION: 
194 + THIS ROUTINE IS CALLED BY PORT DRIVERS TO PASS INPUT CHARACTERS. 
196 > CHARACTERS RECEIVED ON NON PASSALL UNITS ARE FILTERED FOR IMMEDIATE 
13 ; CONTROL SEQUENCES. THESE SEQUENCES REPRESENT 
198 : CONTROL Y == — CAUSES THE aL YREAHEAD BUFFER TO BE PURGED,, THE 
0 0; ENABLED PROCESS TO RECEIVE AN AST, A ''*Y 

0 1: E Bt fpur” AND THE CURRENT OPERATION N IF ANY 

00 : : BE COMPLETED WITH A ZERO TRANSFER COUNT NOR. READ 

00 3; AND AS IF CONTROL O FOR WRITE. 

000 5: CONTROL C == CAUSES THE RECEIVER OF CONTROL C AST'S OR THE RECEIVER 
9000 06 ; OF CONTROL Y AST'S TO BE SIGNALLED AS IN CONTROL Y. 
0000 08 : CONTROL X == CAUSES THE CONTENTS OF THE TYPEAHEAD BUFFER 
000 09 : TO BE PURGED AND A CONTROL U TO BE INSERTED 
9000 10 ; IN THE INPUT STREAM IF A READ IS IN PROGRESS. 

900 1 : CONTROL $ -- = CAUSES ALL OUTPUT ON UNIT TO STOP UNTIL 

909 13 : CONTROL Q,Y OR C. 

0000 15 ; CONTROL Q -- = RESETS CONTROL $ MODE AND STARTS OUTPUT UP. 
9000 i3 $ SLAVE MODE ( NO UNSOLICITED INPUT ) UNITS MUST HAVE OUTSTANDING 
000 218 : READS OTHERWISE THE CHARACTER, AFTER CONTROL CHARACTER FILTERING 
9000 19 : IS IGNORED. 
0900 st > INPUTS: 
000 32 : R3 = CHARACTER TO BUFFER 
0000 : R5 = 
9000 4 : Ri} »R2,R4 ARE AVAILABLE FOR USE 
0900 : : OUTPUTS: 
000 é : R3 = aN D CC = ZERO 
00 : CHA AND CC = PLUS 
6 ; ADDRESS AND CC = NEGATIVE 
i ; : RS = UCB ADDRESS 
4; 
3 5 : LONG REACH TABLE 
$ TAB_ CHE CKPRE: BRW CHE CKPRE 
: TAB” CONTINT BRW CONTINT 
é TAB-EIGH TBIT: BRW EIGHTBIT 
? 40 1 TAB" OUTBAND_CHAR: BRW OUTBAND_CHAR 
¢ 4g i : MAIN LINE 
C 243: 
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-SBTTL BUFFER_CHAR = puts character into typeahead buffer 


aos 
ro 
> 


p++ 

; BUFFER_CHAR = INSERT CHARACTER INTO TYPEAHEAD BUFFER 

FUNCTIONAL DESCRIPTION: 

AT lon POINT WE KNOW THAT THE CHARACTER DOES NOT REPRESENT SOME IMMEDIATE 


INPUTS: 
R2 = ADDRESS OF THE UNIT STATE VECTOR 
R35 = CHARACTER TO BUFFER 
R5 = UCB ADDRESS 


OUTPUTS: 
R2,R3,R5 ARE PRESERVED 
-CNABLE LSB 


OOOCCCOCOCOOCOOCOOOOCOOOOCOCOCOO OOOO OOOOOSOOOOOOOOOO Zz 
FUN O OONOA UE WP 0 OONOAU EWN OOO NOUES WO 


SOOCSCOCCOCSOOCSOOO SOS SOO SCSOSOSCOCOCOSOOOOOOOCOOOOOOOCOOOoOOoO I 


D 6 
D 6 
D 6 
D 6 
D 6 
D 6 
D 6 
D 6 
4 6 
ae, 
D 7 
D 7 
D 7 
D 7 
D 7 
D 7 
D 7 
D 7 
D 7 
D8 
D BUFFER_CHA ; BUFFER CHARACTER 
q0 8 ir NOT STATE READ, 40$ : IF READ THEN BUFFER CHARACTER 
1 8 IF STATE eaureR READ THEN OPTOMIZE 
OF 68 AS) = (01—=SEO +H 8 — BBs wits the TT_TIMO,UCBSW_ pevéTs ins) 0$; BR IF TIMEOUT 
00B2 30 3 g BSBW BUF FER_INSERT ; INSERT THE CHARACTER IN THE BUFFER 
3 4 3; BEGIN ECHO ON READ 
30 ; BEGIN_ECHO: 
3p 4 3 START UP OUTPUT IF NOT ALREADY STARTED 
64 A5 0 83 33 9 BITW #UCBSM_INT ,UCBSW_STS(R5); INTERRUPT EXPECTED? 
12 41 95 BNEQ 1 : IF NEQ THEN 
FFBA' 3! 43 9 BRW TTY$GETNEXTCHAR : FIND THE NEXT CHARACTER FOR THIS UNIT 
00A1 1 46 44 16$: BRW DISMISS 3 EXIT 
rh + t TIMEOUT ACTIVE = RESET THE TIMER THEN FALL INTO THE NORMAL PATH 
49 1 20S: 
54 785 0 49 ¢ MOVL UCBS$L_SVAPTE(R5) ,R4 : ADDRESS READ BUFFER BLOCK 
54 36 AG § 40 MOVZWL TTYSW7RB_TIMOS(R4),R4 ; GET THE NUMBER OF SECO 
+ 51 4 BEQL 10$ F READ WITH ZERO SECOND TIMEOUT. 
0080 C5 00000000'GF & (1 53 5 ADDL R4,G*EXESGL_ABSTIM, UCBSL_ TT_RDUE(RS); RESET THE TIME 
11 2 $ BRB 10$ 7 RETURN TO THE MAIN 
OOFE 31 B26 30$: BRW GOPASS 
6 3 
; if 3 NO READ IS CURRENTLY ACTIVE 
1f 44 AS 02 E \¢ dos: BBS #TT$V -NOTYPEAHD bs UCBSL DEVDEPEND(R5) 5$; IF SLAVED TERMINAL, IGNORE C 
1 00co C D ° 1 MOVL UCBS$L-T ocucet RT GET LOGICAL UCB ADDRESS 
C Al 8 C 14 TSTW $u “REPEC R1) : UNIT REF COUNT 0? 
18 ¢f 15 BEQL : IF EQL THEN JOB CONTROLLER POSSIBILITY 
60 Al D 1 16 TSTL UCBSL_AMB(R1) 3 USER ASSOCIATED MAILBOX 
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v04-000 BUF FER_CHAR = puts character into typeah ets 7 RE: ET TORVR. SREITTYCHARI -MAR: 1 ~ (4) 
. 74 17 BEQL 108 IF EQL THEN NO 
BF 44 aS 19 E 76 18 BBS #TT$V_MBXDSABL UcBst DEVDEPEND(RS),10$; BR IF NOT ENABLED 
BA 68 A : 7 1 BBS #ucesy TT_NOTIF ,UCBS$@_DEVSTS(R5),10$; BR IF ALREADY NOTIFIED 
FF7D' 0 BSBW TTYSNOTIFY 
FFB4 1 1 4$: BRw 10$ 
0061 1 § j 5$: BRW DISMISS : CONTINUE 
o 4 : ; Before checking terminator, check for autobaud detect 
08 48 a 01 3 9 § 50$: BBC OTT EE AU TORAUD .UCBSL DEVORE PND S Ch?) 60$ ; Branch if no autobaud 
5 D 1 € CMPB ss MT TYSC“CR,R : CR MEANS THAT WE ARE CORRECT 
B \3 } 8 BEQL 65$ ; SO FALL THRU 
FF6A‘ 9 BSBW TTYSAUTOBAUD . onsce or correct baud rate 
£848 AS 610 =«€0 96 0 60S: BBS #TT2$V_SECURE ,UCBSL_DEVDEPND2(R5),4$; DON'T EVER INITIATE 
098 1 ; HERE IF SECURE SERVER IS SET 
E2 0000'CF 53 €1 0098 ¢ 65$: BBC R3,W°TTYSA_STANDARD,4$ ; IF NOT TERMINATOR THEN NOT FOR JOBCTLRLR 
00000068'GF 85 oA TSTW G°SYSSGL_JOBCTLMB+UCBSU_DEVSTS; TERMINALS ENABLED FOR JOBCTLR? 
DD 615 O0A7 4 BLEQ $ ; IF LEQ THEN DISMISS 
FF54" 39 OA9 5 70$: BSBW TTYSNOTIFY ; NOTIFY THE JOB CONTROLER 
0049 0 OOAC $ BSBW BUFFER_INSERT ; BUFFER THE CHARACTER D| 
36 64 ASO g0 OOAF BS #UCBSV~ INT, UCBSL STS(R5) DISMISS: DON'T RETURN DATA IF INT EXPECTED E! 
53  00000000' GF A 00B4 8 MOVZBL G*TTY$GB_AUTOCHAR,R ; AND RETURN THE AUTOBAUDED CHARACTER E! 
2D «13 0088 39 EQL DISMISS ; NO CHARACTER TO RETURN THEN EXIT E) 
OBD 40 TIMSET #1,R1,LOCKOUTPUT ; LOCK THE OUTPUT STREAM AND TIME OUT THE CH F 
0108 cS) (01s O0DE 41 OvB #1,UCB$B_TT_OUTYPE(RS) SETUP THAT WE RETURNED DATA Gt 
05 O0e 3 4g RSB : THEN RETURN tf 
Bee rf : NO TYPEAHEAD BUFFER = ALLOCATE ONE . 
00E4 46 NO_BUFFER: 3 mi, 
54 «01 00 O0E4 47 MOVL #TTYSV_FD_GETAHD,R4 + ASK FOR TYPEAHEAD FORK a. 
FF16" 4H rf BSBW TTYSCRE_FORK s; CREATE THE FORK FOR ALLOCATION 4 
OOEA 50 :; DISMISS INTERRUPT - NOTHING TO DO OL 
BOER 57: Ot 
OEA 38 DISMISS: 
0108 CS 94 OOEA 5 CLRB UCB$B_TT_OUTYPE (RS) ; SET NO RETURN CHARACTER 
05 OOEE 54 ; RETURN 
OOEF 55 .DISABLE LSB 


: N 
51 $0000000" GF ADDW2 gs fTvéou_ ALTALARM. Rt + MAX @ TYPE AHEAD CHARS 


11 BRB ; JOIN COMMON P 
51 _00000000'GF 08 a3 55$: SUBW3 © #8, G*TTY$SGW_TYPAHDSZ.R1 : WITHIN 8. CHARS OF TYPAHD FULL? 
0018 OC A4 gt 1 3D ACBW =s-R}1.#1, TTYSWITA_INAHD(R4), 608 : BRANCH 
1 O08 A ADD # TYPEAHEAD CHARS 
FED4' 3 57$: SEND F 


BSB TYSXOFF ae! 
Set. STATE <TYPFUL> P STOP SEQUENCE 


5 
CMPQ «R11, TTY$W_TA_INAHD(R4) PEANEAD BUFFER OVERFLOW? 
BGEQ 46=s-«6 0$ 

DECW  TTY$SW_TA_INAHD(R4) 


ET 
TY 
IF GEQ THEN OVERFLOW - BUFFER CHARACTER 
RESET COUNT ON OV VER 

ser STATE <OVRFLO> INDICATE OVERFLOW CONDITION 


TTYCHARI = terminal input characte nak tate 16-SEP-1984 :20:1 AX/VMS Macro V04-00 2 
v04-000 BUFFER INSERT = INSERT CHARACTERS INTO T SeSEP19RG Oosios1% LTTORVAL ERED TYSHARG mars? 2%" (2 
EF f : .SBTTL BUFFER_INSERT = INSERT CHARACTERS INTO THE TYPEAHEAD BUFFER 
EF ; 
EF > BUFFER_INSERT = BUFFER CHARACTER IN CIRCULAR TYPEAHEAD BUFFER 
EF : TEST TO SEE IF THE NUMBER OF CHARACTERS IN THE TYPEAHEAD Ig CRIT CAL 
EF 63 ; THIS TEST DOES NOT WORK FOR TYPEAHEAD BUFFERS BIGGER THAN 32k S. 
EF 365 : INPUTS 
EF 66 : Rs = CHARACTER TO INSERT 
EF : - PHYSICAL UCB ADDRESS 
EF § : OUTPUTS: 
44 oy : NONE 
F re : R4,R1 ARE DESTROYED 
ane 
EF 375 BUFFER_INSERT: 
54 00E4 C5 00 EF id: MOVL UCBSL_TT_TYPAHD(RS).R4 ; ADDRESS TYPEAHEAD BUFFER 
FS 1 F4 7 BEQL NO_BUFFER ; F EQL THEN 
E1 Fé 28 BBC #TT2$v_ALTY SKIP IF NORMAL TYPE AHEAD SIZE 
1C 48 AS Fs 4 UCBSL VBEYDEPNDD CRS) , 55$ ° 
51 00000009 GE 00009000" F Ad OOF 1 SUBW3 G*TTySGu ALTALARM, GT TySGy ALTYPAHD,R1 ; WITHIN N CHARS OF TYPAHD F 
0030 OC A4 $f He 5 ¢ ACBW R1 TTYSw_T ),60$ BRANCH 
3 
8 
89 
0 
31 
38 
9% 
95 
9 


n 

T 

t INSERT CHARACTER IN TYPEAHEAD BUFFER 

339 80$:  MOVB  R3,aTTYSL_TA PUT (RG j IN T CHARACTER IN BUFFER 
4 

4 


ee ee ee ee a ed ed a ed ed ad QO OOOO 


oO 
oO 
> 
= 
o w— 
wm ~wo 
COoOoOoCooCoooo 


0084 53 SER 
05 64 10A6 F AOBLSS TTYS$L_TA_ENDTR4),T rst 1h A_PUT(R4),70$; INDEX x AND BR IF NOT AROUND 
64 0118 C4 3 MOVAB TTYSL-TA ~DATACRGS . vy C_TK PUT CRaS : RESET POINTER 


2 70$: RSB > 


F 3 
= terminal input character routines 1 mite ts 9 oe: 0:1 AX/VMS Macro V04-00 Page 10 
Put next character service routines “SEP-1984 04:16:1 TTDRVR.SRCITTYCHARI .MAR; 1 (6) 


14 4 : j -sbttl Put next character service routines 
§ : AVOID TYPEAHEAD BUFFER FOR PASSALL MODE 
“ENABLE LSB 
A GBA 1 sporscscheag #TT2$V_PASTHRU,UCBSL_DEVDEPND2(R5),200$; IS THIS TRUE PASSALL MODE? 
00000000" EF es 25 5} B1TB ATTISMICH CTRL TTYSACTYPEERS ;_1S fHIS A CONTROL CHAR 
E 1 BNEQ 2508 ; YES THEN CHECK FOR CONTORL=-S OR Q 
2008: IF_LNOT_STATE PRE,220$ 3; NO READ WAITING THEN BUFFER THE CHARACTER 
; Pass all optomization verifyed continue 
GOPASS: 
54 78 AS b0 MOVL UCBSL_SVAPTE(RS) ,R4 . wo RESS READ BUFFER BLOCK 
30 68 AS 01, §9 BBS #UCBS0_TT_TIMO,UCBSW_DEVSTS(R5),270$; BR IF NO TIMEOUT 
FE94' 2108: BSBW PASSAL : OPTOMIZE BY SKIPING THE TYPEAHEAD 
STATE EOL,230$ 3; If read complete then exit 
FF77 31 BRO DISMISS 3; NORMAL CHARACTER THEN DISMISS THE INTERUPT 
: READ TERMINATED 
230$:  CLR_STATE PRE : EOL THEN CLEAR PRE 
FEC3 31 BRW BEGIN_ECHO ; AND BEGIN THE EOL SEQUENCE 


: Flow control allowed and the character could be a control-s or q 


FOOOOO OO OOD O OW 009 NII NINN NO PAA AA AAA MINE FEE EE 


23 00000000°EF43 91 2508: CMPB TIYSA_TYPECR3],#3!TTYSM_CH_CTRL; IS IT A CONTROL-Q 
b8 «(1A BGTRU 2008 ; NO THEN HANDLE NORMALY 
4 13 BEQL 60$ ; yes then restore flow 
22 00000000'EF43 91 CMPB =s TTYSA_TYPECR3),#2!TTYSM_CH CTRL; IS IT A CONTROL-S 
cc iF BNEQ 2008 : NO THEN EXIT 
16A ; B CONTROLQ : else stop output 
176 «(31 260$:  BRW CONTROLS 
: jump to buffer the character 
FESS 31 220$: BRW BUF FER_CHAR 
: RESET TIMERS AND CONTINUE 
51 36 AG 3¢ 270$:  MOVZWL TTYS$W_RB_TIMOS(R4),R1  ; GET THE NUMBER OF SECONDS 
cA 1 BEQL $ ; BR IF READ WITH ZERO SECOND TIMEOUT. 
0080 C5 00000000'GF 31 a ADDLS Ri ,G*EXESGL_ABSTIM,UCBSL_TT_RDUE (RS); RESET THE TIME 


B 
-DISABLE LSB 
-ENABLE LSB 


: 8 BIT CHARACTER IT MAY BE A CSI 


EIGHTBIT: 


a a a a ee a a a a a a a a a a a a a aD 
Bat ek det el ah kk eh ek ek ek el ee a Ne, lake leh lah le eek eh ee ak a a a et a ee ed ek ek et et et et et et et et et et et ett ek te ek ek ek 


DUMMIES 


SONA NE WN SO OD NA NE WIN  O OOD NAME WIN CO OD NOU EWI 0 OOO NOUS win 
» 
<£ 


SOOOCOOCOOOOOOOCOCOOOCOOOOOOCOOOOOOOOOOOOoOO 


IF STATE PASALL ,CHECKPRE ; WE ARE IN PASSALL MODE THEN 
A ; DON'T PROCESS CSI 
535 98 BF 9 A CMPB #TTYSC_CSI,R3 ; NO THEN IS IT A CSI 
3 1¢ 8 BNEQ 305$ ; NO THEN CONTIUE NORMALY 
0174 «3 B BRW CS! ; ELSE TAKE CSI ACTION, 


TTYCHAR] 
v04-000 

51 0105 $3 

o000'cray> 53 

15. Blas Bf 

0105 ¢ 
of 
6 


54 009C ss 


56 O0A4 C 
00000000' 


51 00C0 
C6 0098 C1 


53 


FDF2 


G6 3 

= terminal input character routines 7 H taht 9 Oe: 70 19 yA X/VMS Macro V04-00 Page 11 
Put next character service routines -SEP=-1984 1 TTDRVR.SRCITTYCHARI .MAR; 1 (6) 
9A 0188 305$:  MOVZBL YCBSB_TT_INTCNT(RS) ,R1 ; ARE WE IN THE MIDDLE OF THE 

13 a8 BEQL 10$ : THE INTERUPT KEY = YES THEN HANDLE IT 

5 : CHECK FOR INTERRUPT KEY 

94 CONTINT:CLRB UCase TT_INTCNT(RS) ; ASUME IT IS THE WRONG KEY 

91 CMPB W*INTERRUPT_KEYCR1) ; IS THIS THE NEXT CHARACTER 

le BNEQ $ NO THEN THE STATE IS CORRECT SO EXIT 

: ADDBS #1,R1,UCB$B_TT_INTCNT( (RSS; INCREMENT THE COUNT 

91 cHPB C6$B_TT OENTENT (RS 5),$* PINTERRUPT _KEY_LEN 

i CLRB UCBsB TT INTCNT(RS) ; COMPLETE ESCAPE SEQUENCE THEN RESET 

1 310$:  CMPB we eal / : IS THIS CHARACTER OUT OF BAND 

1F BLSSU OUTBAND CHAR + YES THEN HANDLE CORRECTLY 

31 Ri BUF FER_CHAR ; ELSE BUFFER THE CHARACTER 


BRW 
-DISABLE LSB 


; : OUT OF BAND CHARACTER PROCESSING 

BELOUTBAND: 
DE MOVAL UCBSL_TL_BANDQUE(R1),R4 : ADDRESS OF 
DD PUSHL R6 > SAVE R6 
D0 MOVL UCBSL_TL_CTLPID(R1),R6 : 
at: JSB G*COMSDECCTRLASTP : 
BED POPL 6 : RESTORE R 


S CHECK FOR INCLUDE OR ABORT 


Po ot at at anette 


OOO 000000009 09 09 09 09 09 08 INI NSI SII NNO 


MEAN § SO OD NA UNE WN O OD NA NES —OOONAUE 


t CHECK FOR CONTROL SEQUENCE CHARACTER 
1 OUTBAND_CHAR: 


WRN 2 2 2B OQOOCOCO TR TNH HW MMMMMMMMMMMOOVVTVTOCOCOWWWIw 
CO SD OOOOOOWNS FROM NOE OCUM] VNNN INGE FAO WO "DOW TTBS 


POPDPOPIPOPIPOPOPIPPINIPUNPONIPINIDYD 2 — 9 tt 


09 MOVL ucest TT_LOGUCB(RS).R 
E 4 BBS /UCBSL-TL SOU TBAND ERT) . DELOUTBAND: NOT IN 
$ CHECASE: 
CASE  W*TTYSA_TYPECR3], TYPE=B,LIMIT=#1@TTY$V_CH_CTRL 
<CONTROCC, CONTROLO, CONTROLQ, CONTROLS, CONTROL 
31 BRW BUFFER C CHAR 


§5 BCC  #TAST$V_ABO.R3,5$ : 
C MOVZWL #SS$_C ORTROL¢ OcBSw W BOF F (RS) : SET STATUS 
8 LRW JeasOcs MULTILEN(R t CLEAR, NO 
30 494 BsBy TTYSABORT 1 16 : ABORT 1/0 
g 496 5$: BBSC #TASTSV_INC,R3,CHECASE : 

1 49 8s: BRW DISMISS 


QUEUE 


GET THE CONTROLING PID 
DELIVER 4d OUTSTANDING ASTS 


CHECK ABORT FIRST 


EHCO TO PREFORM 


CONTINUE 
DONT STRIP CHARACTER 


GET LOGICAL UCB ADDRESS 
SUMMARY MASK 


x, EONTROLY. ESCAPE ,CSI> 


ey 


H 
TTYCHARI = terminal input character routine =SEP=-1984 :20:1 AX/VMS Macro V04- Pa 1 
v04-000 PRE-TYPEAHEAD CONTROL CHARACTER ACTION R g- Hatt 82:48:19 YTTORVA. ERETTTVCHARS. MAR; 1 ad 8) 
8 i .SBTTL PRE-TYPEAHEAD CONTROL CHARACTER ACTION ROUTINES. 
: : ENTRY FROM CONTROLY AND CONTROLC 
18 CANCEL_CTRLS: 
FDC2" 39 B 1 BSBW 430s TT YSRESUME ; RESUME ANY yfort OUTPUT 
FOFC 31 € 51 BRW BEGIN_ECHO : BEGIN OUT 


I 3 
cter routines 16-SEP-1984 :20:1 AX/VMS Macro v04-00 P 13 
CHARACTER ACTION R eset 1 be: 90:19 YT TORVR. SREITTYCHARS MAR: 1 st (9) 


~SBTTL CONTROLC, CONTROLY handlers 
-ENABL LSB 


TTYCHARI 
v04-000 


ms 
ro 
ze 
m 
>—. 
os 
oc 
or 
4 
ao 
z2aazT 
ow 
os 


+ 
~ 


CONTROLC = SIGNAL CONTROL C INPUT 
CONTROLY = SIGNAL CONTROL Y INPUT 


FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS ENTERED WHEN A th ee C OR Y IS TYPED. 
THE ACTION IS TO SIGNAL, VIA AN AST, THE HOLDER OF THE AST ENABLE. 
IF NO ENABLE IS PRESENT, AN ATTEMPT IS MADE TO SIGNAL THE JOB CONTROLLER 


IF IT HAS NOT BEEN SIGNALED. 
INPUTS: 


Re = ADDRESS OF THE UNIT STATE VECTOR 
R> = UCB ADDRESS 


OUTPUTS: 


Re = ADDRESS OF THE UNIT STATE VECTOR 
R> = UCB ADDRESS 


LCTRLC = 1 
REGIS = 2 
“DECCRT = 4 
CONTROLC: ; ENTRY FOR CONTROL C 
MOVL UCBSL_TT_LOGUCB(R5),R1 ; GET LOGICAL UCB ADDRESS 
MOVAL UCBSLTLICTRLC(R1),R4 ; GET ADDRESS OF CONTROL C AST LIST 
TSTL R4) 3; EMPTY? 
10 1 BEQL 108 s if EQL THEN NO CTRLC 
7C AS 9651 of 3c MOVZWL #SS$ CONTROLC ,UCBSU_BOFF(R ) ; SET STATUS AND ZERO COUNT 
1 A MOVZBL #M_CTRLC,R 3; Set “Cancel” 
19 +171 BRB 158 3 Branch 


; CONTROL Y PROCESSING 


MIDAS SSS ILIV VV VV eV SSSSLESESESEEEESESESSESESSSESESSESESEES 


MEV SO OO NAME WIN OS OD NIP NEW 0 OD NOAUE WN OO OONOUE W000 


PS ero Soe rer cte te BE Ne 


wu 
ro 
oo 
oo 
OO 
so 
ooo 
sco ooo 
=u ooo 
ooo 
Sss 
oo 
ooo ooo 
So en 
SOOOOOOOOCOOCOCOOCOOCOCOCOCOCOOCOCOOCOOOOOOOCOCCO COCO CO OOCOCOOCO OOOO OO OOO OOOO 


CONTROLY: 
2} a4 cS DO MOVL UCBSL_TT_LOGUCB(R5),R1 ; GET LOGICAL UCB ADDRESS 
4 C1 DE 10$ MOVAL UCBSL_TL_CTRLY(R1),R4 ; GET ADDRESS OF CONTROL Y AST LIST 
) TSTL (R4) 3; EMPTY LIST? 
; 1 8 BNEQ 13$ 3; No, branch forward. 
00 3 138 BRW TAB_BUFFER ; Yes. Don't process it. 
7C AS 0611 ef 3C 9 MOVZUL 645S_CONTROLY .UCSSU_BOFF (RS) 3; SET STATUS AND ZERO COUNT 
30 D4 i CLRL R ; Set “Interrupt 
74 
75 


: Common *C and “*Y code 


§ ¥F 
TTYCHARI erminal input character routines 16-SEP-1984 02:20:1 AX/VMS v04-00 Page 1 
v04-000 TROLC, CONTROLY handlers oe tt 9 97:40:19 Yet OMuR. R.S REITTYCHARI. MAR; 1 ° ( 
76 15$: 
03 48 AS) 1D §} i 3 BBC #TT2$V DECCRT,UCBSL_DEVDEPND2(R5),188; IS THIS A DECCRT? 
53 04—CiséBB 7 BISB #M DECCRT.R3 vgs THEN DO A DECCRTECHO 
03 48 A ff f! 7 79 18$: BBC atte sy v nedls. UCBSL -vevoePnp (R5),20$; IS THIS REGIS 
530 8 ai BISB #M_REGIS,R YES THEN GET OUT OF REGIS MODE 
; IF STATE NINTHULTI 25$ : : DON ON'T INTERUPT THE NON-INTERUPT MULTIECHOS 
51 _0000'CF 00 MOUL =o WATT 8A INFECHO,RI FETCH TABLE POINTER 
6143 4 MOVE (Ri) 33,R AND OF 
00D C5 § 98 s MOVZBW (R3)+ yesu_tr mas rsnenchs SETUP THE LENGTH OF THE MULTIECHO STRIN 
0008 ¢ D 9 : MOVL R3,UCB$L_TT-MUCTI(R5) ; SET UP FOR MULTI 
A SET_STATE N WINTRUCTI : MAKE THIS ONE OF THE NON-INTERUPTABLE 
E § t MULTIECHO STRING 
56 DD 029 25$ PUSHL R6 
56 90c0 C o9 A : MOVL UCBSL_TT_LOGUCB(RS).R6 ; GET THE LOGICAL UCB ADDRESS 
56 6 00A4 C6—COC«iO A 9 MOVL UCBSL~TL“CTLPID(R6),.R6 : THEN GET TH 
00000000'GF 16 OOAA 3 JSB G*COMSDECATTNASTP : DELIVER ATTENTION ASTS FOR THIS PID 
6 BED es 93 POPL R6 
FD4A' 30 8 95 BSBW  TTYSABORT_IO 
FF82 1 B6 596 BRW CANCEL_CTRLS ; CANCEL CONTROL S$ AND BEGIN ECHO 


TTYCHARI 
v04-000 


B9 


FD34° 30 
53 4 
0s 11 
53 02 00 
1 E1 
0 48 A 
3 601) AB 
oa F 
eats 


wee HY 


FFSE = 31 


WRHRMMMMMMoOCOIOCVCVTCVVTVCVMOOCCoCWWWwwIwwTwTOOw 
> FP NOORN VES F VINNNNOOOOCOM Om Oui" F OOWOOOOWOVOVOWO 


SOOOCOOOCOOOOSCOOCOCOOOOOOCOOOOOOOOOOOOoOO 


conthan pete ott character vento . 1 ~ SEE 1388 07340: 19 yaney 


v04-00 Page 15 


S$ Macro 
-SEP-1 VR.SRCITTYCHARI MAR; 1 (10) 


8 -SBTTL CONTROLO handler 


; 


+ 
CONTROLO = START OR STOP OUTPUT ON UNIT 

FUNCTIONAL DESCRIPTION: 

THIS ROUTINE TOGGLES THE OUTPUT ENABLE OF A UNIT 

ot OD a UNTIL THE NEXT READ OPERATION. IO$_WRTCANCTRLO 
INPUTS: 


Re © td ptt are THE UNIT STATE VECTOR 
R> = UCB ADDRESS 


OUTPUTS: 


Re = ADDRESS OF THE UNIT STATE VECTOR 
R> = UCB ADDRESS 


—DOODOCOOOCOOCONO 


SOD NAME WINS OD NAVE WIN $9 OD NAME WIN OOD NOU SW "OO ODNAULS WO 


Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Ge Ge Se 
> 


MCTRLO_DEC = 1 


MICTRLO-ON = 2 

CONTROLO: 
IF NOT STATE READ, 120$ ; IF NOT READ THEN HONOR 
IF“NOT"S E CTRLR, TAB_DISMI 


“S $$ NTROL R THEN IGNORE 
120$:  XORW yet TYSM ST CTRCO>.4(R2) ; FLOP CONTR T 
IF _NOT “STATE CT ETRLO; OUTPUTON : IF NOW CLEAR THEN START OUTPUT 
BsBu : AB ouTP 


RL OR 
BRB CTRLO_ECHO 
; RESTART OUTPUT ON STOPPED UNIT 


OUTPUTON: 
MOVL § #M_CTRLO_ON,R3 : SET FLAG 


CTRLO_ECHO: 
IF STATE NINTMULTI i IR rice. CTRLS; don't bother non-interuptable multiecho 
ser. STATE pris betcnrice 
BEVDEPND 2(R5), 150$ ; BRANCH IF NOT DECCRT 
BISW UA er TRLO. DEC.R 


MOVL vei tse yPReoecno. R1 : INSERT ADDRESS OF STRING 


MOVL we R3 AND OFFSET 

HOV IBM & + too TT mULTILEN(RS) SETUP THE LENGTH OF THE MULTIECHO STRIN 
MOVL UChSL_TT“MUCTICR SET UP FOR MULTIECHO 

TAB_ CANCEL tres” 


BRO CANCEL_CTRLS ; RESUME OUTPUT 


Sete Ge Gee 
Oo 
Zz 
= 
~*~ 


; ECH LAG. 
; STARTUP THE. OUTPUT 


150$: 


PP APAPAAPA AA AAA AAAAAAA AA AAA AAA AA AAA AAAPS AAPA AO SAS AAAOAO 


OBER RAE EES EWWWWWW AIA AIIOPOPONOPOPOPUPONUN 


<- 


"oO 


ow 
Dw me es et me) i es es es es es De Be en De Os ee ee = Be | 


ODOM —-TCTIOTVTVTVTVTVTVTVVTVVUVVTVCVTVC"TC0C00C0"€8 


al in ut character reuttate ' a oe th 9 4 ge: 70: 19 yor lyes Be v04-00 


-SBTTL CONTROLQ handler 


+ 
CONTROLQ = START OUTPUT ON CONTROL S$ STOPPED UNIT 

FUNCTIONAL DESCRIPTION: 

THIS ag J STARTS OUTPUT ON A UNIT WHICH IS STOPPED BECAUSE 


3@ 
0 : OF CONT 
: INPUTS: 
4: R? = ADDRESS OF THE UNIT STATE VECTOR 
665 ; RS = UCB ADDRESS 
68) ; OUTPUTS: 
oss F Re = ADDRESS OF THE UNIT STATE VECTOR 
on9 3 = UCB ADDRESS 
ie . 
73 CONTROLQ: 
74 BBS #TTSV_TTSYNC UCBSL _DEVDEPEND(RS) ,= 
675 TAB_CANCEL_CTRL ; TERMINAL SYNCH? 
676 TAB_BUFFER: 
67 IF STATE PRE,TAB_GOPASS : PASSALL OPTOMIZATION 
28 BRO BUF FER_CRAR + BUFFER THE CHARACTER NORMALLY 
679 TAB_GOPASS: 
680 BRW GOPASS 


TTDRVR SRC try YCHARI .MAR; 1 


4 3 
TTYCHAR] ut character routines 16-SEP-1984 1 AX/VMS M v04-00 pP 
v04-000 lee tae 1 ge +40 18 YT TORVR. ee afry YCHARI .MAR; 1 _ 


~SBTTL CONTROLS handler 


+ 
CONTROLS = STOP OUTPUT TO UNIT 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE IS ENTERED ge THE USER TYPES A CONTROL S. 
ON UNITS THAT DO NOT HAVE THE TIS$V_TTSYNC eee att eM HE wee 


C 
BB 
C 4 ;+ 
at 
( $ : 
at 
c i : Is STOPPED BY TURNING THE OUTPUT INTERRUPT ENABLE B THE 
C 693: : 
: ae : INPUTS: 
C %6 : R2 = ADDRESS OF THE UNIT STATE VECTOR 
( 97 ; R5 = UCB ADDDRESS 
; 99 : OUTPUTS: 
¢ 84 : Re = ADDRESS OF THE UNIT STATE VECTOR 
C 0¢ : R5 = UCB ADDRESS 
: o j= 
C $e CONTROLS: 
F144 05 05 é C 706 BBC #TTSV_TTSYNC,UCBSL -DEVDEPEND(R5) TAB_BUFFER; TERMINAL SYNCH? 
FCEC' 30 i 07 Bw -TTY$STOP ; STOP PORT OUTPUT 
4 709 


BS 
TAB_DISMISS: 
BRW DISMISS ; AND RETURN TO DRIVER CODE 


<<-— 


Nn 3 
TTYCHARI al input character routines 16-SEP-1984 AX/VMS o V04-00 p 1 
v04-000 ler . t 02:98:18 age 18; 


min 
OLX handle =SEP=1984 TTDRVR.S ST TYCHARI «MAR: 1 1 
17 7 .SBTTL CONTROLX handler 
5 q ++ 
Vf oe : CONTROLX = PURGE TYPEAHEAD BECAUSE OF CONTROL X INPUT 
7 ah : FUNCTIONAL DESCRIPTION: 
5 18 : THIS ROUTINE PURGES THE TYPEAHEAD BUFFER AND IF THE REASON IS THAT 
17. 719 ; A CONTROL X WAS TYPED DURING A READ THEN A CONTROL U IS INSERTED IN 
Vy 4 9 3 THE INPUT STREAM TO PURGE THE CURRENT INPUT LINE. 
1 f : : INPUTS: 
17 4 06feas Re = ADDRESS OF THE UNIT STATE VECTOR 
17 725 3 = UCB ADDRESS 
| ae § 3 
\? 4 f : OUTPUTS: 
0317 729: Re = ADDRESS OF THE UNIT STATE VECTOR 
0 17 730: R3 = CONTROL U = IF CONTROL X TYPED DURING READ 
17 731: R5 = UCB ADDRESS 
baie 7 ¢ i-- 
312 7 
0317 734 CONTROLX: 
FCE6' 30 0317 735 BSBW  —_TTYSPURGE_AHEAD ; PURGE TYPE AHEAD 
O31A 736 IF _NOT_STATE READ: TAB ISMISS : DONE EN O READ IN PROGRESS 
53 15 9A O31E 737 MOO ZBL #TTYSC_C : PORCE-A CONTROL. U IN INPUT STREAM 
FFDE 31 0321 738 TAB_BU Fre + CONTINUE AND ShFFER CHARACTER 


<- 


TTYCHARI = terminal i 
v04-000 ESCAPE, CSI 

4 

4 

4 

4 

d 

0105 C5 1 0 4 

rool 3 ; : 

C 

¢C 

C 

bit 

0105 cS) 02 39 C 

FCF9 1 0331 


SQN 
VMNVIVIN EELS LLL oO 


FW" OOONOUES Wn" + 
° = 


i. @ 
= 
— 


B 4 
t character routines 
er 


ua 


SEP= 
SEP= 


~SBTTL ESCAPE, CSI handler 


ESCAPE: 


MOVB 
BRW 


#1 pense. li. INTCNT(R5) 


BUFFER_ 


ts - CANCEL INTERUPT INTRODUCER 


#2,UCB 
BUFFER_ 


TT 
RAR™ 


INTCNT(R5) 


1984 20:1 AX/VMS Macro V04-00 

1382 82:90:19 YT TORVR. SREITTYCHARI MAR: 1 
p++ 

; Escape - introducer for the cancel/interrupt key 


; SET INTERRUPT COUNT 


; MOVE BY THE ESC C IN THE STRING 


TTYCHARI 
Vv04-000 


C 4 
= terminal frou character routines 


End of module 


"SoSEP=1 


03% 3) -SBTTL End of module 


«END 


Bc Oe:fests 


AX/VMS M 
TTORVR. SRC 


0 Vv04-00 
ST TYCHARI .MAR; 1 
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TT’ 
vO 


TTYCHARI 
Symbol table 


BEGIN_ECHO 
BUFFER CHAR 


CHECA 

CHECKPRE 

CNT 
COMSDELATTNASTP 
COMSDELCTRLASTP 
CONTINT 


GOPA 
INTERRUPT_KEY 
INTERRUPT_KEY_LEN 


SS$~ CONTROLY 
SVSSGL_JOBCTLMB 


TAB_BUFFER 
TAB_CANCEL_CTRLS 
TAB” CHECKPRE 


AUTOBAUD 


TT2$V_DECCRT 


D 
= terminal input character routines 


D 
) 


: 


001 


reeeeree 
reererene 


geeerere 


00000000 
00000160 


geereeee 
rererere 


00000611 


<x 


, 


ooo OOCOCOCOCOCOCOCOCOCOCOOOCOO COOOCOOO 


rrr 


SPURGE AHEAD 
SPUTNERTCHAR 
ESUME 


z Z2e-=<«mMwPrc 
wvw»>m 


COCO a4 (4 a hh hh hh ah ad a a tt tt th tt st tt St St St St St Ht St St Ht st Ht Ht Ht 
o =z 


zvv -- > 
m 
z 


1 


SH 6 


RRRRAAAE 
RERTRERE 
RARREEREE 
RReEKRERE 
RHRKEREH 
RERERREE 
Reeekeee 
RRRRRREE 


0000098 
000001 
eeeeeeee 
aeeneenre 
eeeeeene 
eeeeenen 
eeeeeene 


00000118 


fOonwoooco 


0 
0 
0 
0 
0 
0 
1 
0 


ooo0o-o°0o 


0 
0 
0 
0 
0 
0 
0 


OOoooooo 


001 
000 
002 
000 
004 
000 
000 
000 


00001000 


eeeeeeee 
eenerene 
0000000C 
aeeeanee 
aeeeeeee 
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Symbol table 
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UCBSL_SVAPTE 
Met toa -BANDQUE 


oO 

oo 

Sed 
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- ABS . 00000000 < 00 ¢ 0.) NOPIC USR CON ABS 
SABS$ 444444 ( uf 4 ( 1.) NOPIC USR CON ABS 
$$$115_DRIVER 00000334 <¢ 82 2¢ 2.) NOPIC USR CON” REL 
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CL NOSHR NOEXE NORD —_ NOVEC BYTE 
CL NOSHR EXE RD T NOVEC BYTE 
CL NOSHR EXE RD uRT NOVEC LONG 


Pre 


Phase Page faults CPU Time Elapsed Time 


Initialization * :00: 8 
ponnens processing 1 700: ? 
Syabol table sort :00: | 


oon tl table output 1 
Psect synopsis output 

Cross-reference output : 
Assembler run totals 83 0: 


The working set Limit was 1800 pages. 
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120967 bytes (237 pages) of virtual memory were used to buffer f e intermediate 5g e. 

There were 120 pages of symbol table space a = ed to hold 52 non-local and local symbols. 
R source Lines were read in Pass 1, produ object records in Pass 2. 

48 pages of virtual memory were used to def nee macros. 
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H Macro Library” statistics H 


Macro Library name Macros defined 

-8255SDUA SYS.OBJJLIB.MLB;1 17 
S25580UA28: ESS STAR LET.ALB;2 : 

Torre (all Libraries) 2 


2589 GETS were required to define 25 macros. 
There were no errors, warnings or information messages. 
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